﻿Namespace Reports


    Public Class R_07_00301

        Public Sub CreateDataBindings()

            'Me.XrTableCell_DepartmentCode.DataBindings.Add("Text", Me.DataSource, "DEPARTMENT_ID")
            'Me.XrTableCell_DepartmentName.DataBindings.Add("Text", Me.DataSource, "DEPARTMENT_ID")
            Me.XrTableCell_DepartmentName.DataBindings.Add("Text", Me.DataSource, "PRINCIPAL_INTEGRALITY")
            Me.XrTableCell_DepartmentName.DataBindings.Add("Text", Me.DataSource, "TASK_COUNT")
            'Me.XrTableCell_PrincipalStaffCode.DataBindings.Add("Text", Me.DataSource, "PRINCIPAL__STAFF_ID")
            'Me.XrTableCell_PrincipalStaffName.DataBindings.Add("Text", Me.DataSource, "PRINCIPAL__STAFF_ID")

        End Sub

    End Class

End Namespace